####################################################################
## author:    Robert A. Huber, Lukas P. Fesenfeld & Thomas Bernauer
## contact:   robert.huber@ir.gess.ethz.ch
## file name: erc_popcli_tests.R
## Context:   ERC Populism Project on Public Support for Climate Politics
## started:   2018-02-12
## Summary:   tests balance
##############################################

#Balance Tests
m.gender <- glm(gender=="female" ~ trt, df, subset= trt != "Total Control", family=binomial())
m.age <- lm(age ~ trt, df, subset= trt != "Total Control")
m.educNC <- glm(educGrp=="No College" ~ trt, df, subset= trt != "Total Control", family=binomial())
m.educSC <- glm(educGrp=="Some College" ~ trt, df, subset= trt != "Total Control", family=binomial())
m.educC <- glm(educGrp=="College + " ~ trt, df, subset= trt != "Total Control", family=binomial())
m.urban <- glm(urbanRural=="Urban" ~ trt, df, subset= trt != "Total Control", family=binomial())
m.anti <- lm(anti ~ trt, df, subset= trt != "Total Control")
m.peop <- lm(peop ~ trt, df, subset= trt != "Total Control")
m.man <- lm(man ~ trt, df, subset= trt != "Total Control")
m.pop <- lm(pop ~ trt, df, subset= trt != "Total Control")
m.inc <- lm(as.numeric(df$inc) ~ trt, df, subset= trt != "Total Control")
# summary(lm(climConcern ~ trt_base, df))
# summary(lm(polTrust ~ trt_base, df))
# summary(glm(cliScep_rec == "Climate Sceptic" ~ trt_base, df, family=binomial()))

